home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 January & February / rerun-1986-01-02.d64 / burgers 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  145 lines
  1. 1 rem burgers
  2. 2 rem 10/18/84
  3. 3 rem george decker
  4. 4 rem 251 n. luzerne ave.
  5. 5 rem balto., md. 21224
  6. 6 rem*********************
  7. 10 poke52,48:poke56,48:clr
  8. 15 dimz$(26):b=65:fora=1to26:z$(a)=chr$(b):b=b+1:next
  9. 20 poke53281,1:print"[147]burgers
  10. 22 [153]"by":[153]"george r. decker"
  11. 25 [153]"select skill level":[153]:[153]
  12. 30 [153]"stopf1 - easy":[153]"f3 - normal":[153]"f5 - hard":[153]"f7 - children"
  13. 35 [161]a$:[139]a$[178]"input"[167]k[178]150:[137]70
  14. 40 [139]a$[178]"dim"[167]k[178]100:[137]70
  15. 45 [139]a$[178]"read"[167]k[178]50:[137]70
  16. 50 [139]a$[178]"let"[167]k[178]200:[137]70
  17. 60 [137]35
  18. 63 [143] get skill level
  19. 70 [153]"wait one moment"
  20. 73 [129]a[178]54272[164]55295:[151]a,0:[130]:[143] clear out sid
  21. 75 [151]54273,48:[151]54272,127:[151]54277,0:[151]54278,128:[151]54296,15
  22. 76 [143] set music
  23. 80 [151]53265,[194](53265)[175]239:[143] blank screen
  24. 100 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251
  25. 110 [129]a[178]0[164]463:[151]14336[170]a,[194](53248[170]a):[130]
  26. 120 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
  27. 130 [151]53272,([194](53272)[175]240)[176]14
  28. 140 [143]****move character rom****
  29. 150 [129]a[178]14800[164]14831:[135]b:[151]a,b:[130]
  30. 160 [131]3,3,15,15,63,63,255,255:[143] 58
  31. 170 [131]255,255,255,255,255,255,255,255:[143] 59
  32. 180 [131]192,192,240,240,252,252,255,255:[143] 60
  33. 190 [131]192,240,252,255,255,252,240,192:[143] 61
  34. 200 [143]***custom characters
  35. 201 [131]0,0,0,0,0,0,0,0
  36. 202 [131]0,0,0,0,0,0,0,0
  37. 203 [131]0,0,0,0,0,0,0,0
  38. 204 [131]0,0,0,0,0,0,0,0
  39. 205 [131]0,0,0,0,0,0,0,85
  40. 206 [131]85,85,85,85,85,21,85,84
  41. 207 [131]21,85,84,5,85,80,5,85
  42. 208 [131]80,1,85,64,1,85,64,0
  43. 209 [131]0,0,0,0,0,0,0,0
  44. 210 [131]0,0,0,0,0,0,0,0
  45. 211 [131]0,0,0,0,0,0,0,0
  46. 212 [131]0,0,0,0,0,0,0,0
  47. 213 [131]0,255,255,255,255,255,255,85
  48. 214 [131]85,85,85,85,85,21,85,84
  49. 215 [131]21,85,84,5,85,80,5,85
  50. 216 [131]80,1,85,64,1,85,64,0
  51. 217 [131]0,0,0,0,0,0,0,0
  52. 218 [131]0,0,0,0,0,0,0,0
  53. 219 [131]0,0,0,0,0,0,0,0
  54. 220 [131]0,0,0,170,170,170,170,170
  55. 221 [131]170,255,255,255,255,255,255,85
  56. 222 [131]85,85,85,85,85,21,85,84
  57. 223 [131]21,85,84,5,85,80,5,85
  58. 224 [131]80,1,85,64,1,85,64,0
  59. 225 [131]0,0,0,1,85,64,1,85
  60. 226 [131]64,5,85,80,5,85,80,21
  61. 227 [131]85,84,21,85,84,85,85,85
  62. 228 [131]85,85,85,170,170,170,170,170
  63. 229 [131]170,255,255,255,255,255,255,85
  64. 230 [131]85,85,85,85,85,21,85,84
  65. 231 [131]21,85,84,5,85,80,5,85
  66. 232 [131]80,1,85,64,1,85,64,0
  67. 235 [129]a[178]12288[164]12543:[135]b:[151]a,b:[130]
  68. 240 [129]a[178]12544[164]12606:[151]a,0:[130]
  69. 250 [143]***sprite characters***
  70. 310 [151]53280,14:[151]53281,1
  71. 320 [153]"load  stopscore        ;;;;;;;;;     stophigh scorecmdcmdcmdcmdcmdcmd"hs"on"
  72. 330 [153][163]15)";clrburgers;"
  73. 340 [153][163]15)";;;;;;;;;"
  74. 350 [129]a[178]1184[164]1223:[151]a,59:[151]a[170]760,59:[151]a[170]800,59
  75. 360 [151]a[170]54272,14:[151]a[170]55032,14:[151]a[170]55072,2:[130]
  76. 370 [129]a[178]1224[164]1904[169]40:[151]a,59:[151]a[170]39,59
  77. 380 [151]a[170]54272,14:[151]a[170]54311,14:[130]:z[178]2
  78. 390 [129]a[178]1356[164]1916[169]40:[129]b[178]0[164]3:[151]a[170]b,59:[151]a[170]b[170]54272,z
  79. 400 [139]z[178]2[167]z[178]7:[137]430
  80. 410 [139]z[178]7[167]z[178]12:[137]430
  81. 420 z[178]2
  82. 430 [130]b:[130]a
  83. 440 [129]a[178]1360[164]1372:[151]a,59:[151]a[170]200,59:[151]a[170]400,59
  84. 450 [151]a[170]54272,2:[151]a[170]54472,7:[151]a[170]54672,12:[130]
  85. 460 [151]1372,61:[151]1572,61
  86. 470 [153]""[163]16)"verify:;<:;<:;<:;<"
  87. 480 [129]a[178]1133[164]1135:[151]a[170]54272,1:[151]a,59
  88. 485 [151]1893,59:[151]1894,59:[151]1933,59:[151]1934,59:[151]1935,59
  89. 487 [151]56165,13:[151]56166,13:[151]56205,13:[151]56206,13
  90. 488 [151]1895,59:[151]56167,13:[151]56207,13
  91. 490 [151]a[170]54312,1:[151]a[170]40,59:[130]
  92. 500 [143]***screen set up***
  93. 505 [151]53275,15:[143] sprite behind background
  94. 510 v[178]53248:[151]v[170]21,15:[143] turn on first 4 sprites
  95. 520 [151]2040,196:[151]2041,196:[151]2042,196:[151]2043,196:[143] sprites blank
  96. 530 [151]v[170]39,7:[151]v[170]40,7:[151]v[170]41,7:[151]v[170]42,7:[143] set sprite color
  97. 540 [151]v[170]28,15:[151]v[170]37,9:[151]v[170]38,10:[143] set multi color sprites
  98. 560 [151]2040,192:[151]v[170]0,0:[151]v[170]2,0:[151]v[170]4,0:[151]v[170]6,0
  99. 570 [151]v[170]1,68:[151]v[170]3,107:[151]v[170]5,146:[151]v[170]7,185:[151]v[170]16,15
  100. 575 [143]*** set sprite positions***
  101. 576 [143]***start of game follows***
  102. 577 [151]53265,[194](53265)[176]16:[129]a[178]1[164]600:[130]
  103. 578 sc[178]0:fb[178]39:ub[178]0
  104. 580 [129]a[178]1[164]39:[151]54276,33
  105. 590 s[178][181]([187](1)[172]26)[170]1
  106. 600 t[178][181]([187](1)[172]26)[170]1:[139]t[178]s[167]600
  107. 610 u[178][181]([187](1)[172]26)[170]1:[139]u[178]t[167]610
  108. 620 [153]""z$(s)
  109. 630 [153]"sys"z$(t)
  110. 640 [153]"verify"z$(u)
  111. 650 [151]v[170]1,a[170]68:[151]v[170]3,a[170]107:[151]v[170]5,a[170]146:[151]v[170]7,a[170]185:[151]54276,32:[130]
  112. 655 [151]2044,[194](2043)
  113. 660 [151]2043,[194](2042):[151]v[170]7,185
  114. 670 [151]2042,[194](2041):[151]v[170]5,146
  115. 680 [151]2041,[194](2040):[151]v[170]3,107
  116. 690 [151]2040,192:[151]v[170]1,68
  117. 700 [129]b[178]1[164]k
  118. 710 [161]a$
  119. 720 [139]a$[178]z$(s)[167][151]2041,193
  120. 730 [139]a$[178]z$(t)[175][194](2042)[178]193[167][151]2042,194
  121. 740 [139]a$[178]z$(u)[175][194](2043)[178]194[167][151]2043,195
  122. 750 [130]b
  123. 760 [139][194](2044)[178]196[167]580
  124. 770 [139][194](2044)[179][177]195[167]800
  125. 780 sc[178]sc[170]100:[153]"stop"sc
  126. 790 ub[178]ub[170]100:[139]ub[178]1000[167]820
  127. 795 [137]580
  128. 796 [143] update score
  129. 800 [151]56256[170]fb,1:fb[178]fb[171]1:[139]fb[178]0[167]860
  130. 810 [137]580
  131. 815 [143] decrease fixings-see if game is over
  132. 820 fb[178]fb[170]1:[139]fb[177]39[167]fb[178]39
  133. 830 [151]56256[170]fb,2:ub[178]0
  134. 840 k[178]k[171]5:[139]k[179]25[167]k[178]25
  135. 850 [137]580
  136. 855 [143] increase fixings-speed up game
  137. 860 [151]v[170]21,0
  138. 863 [139]sc[178][177]hs[167]hs[178]sc
  139. 865 [153]"loadstopgame over!"
  140. 870 [153]"final score "sc
  141. 880 [153]"high score "hs
  142. 890 [153]"to play again push any key.":[151]198,0
  143. 900 [146]198,1:[140]:[137]20
  144. 910 [143] end game-see if anyone wants to play again
  145.